1 DIMT(23,1):FORF=1TO4:READX,Y:T(X,8)=F:T(Y,1)=F:NEXT:C(0)=12:C(1)=9:W(1)=-1:Q(2)=1:W(3)=1:Q(4)=-1:FORB=0TO1:GR:HOME:COLOR=13:FORF=0TO39STEP39:VLIN0,39ATF:HLIN0,39ATF:NEXT:X(0)=10:Y(0)=20:X(1)=30:Y(1)=19:W(1)=-1:DATA4,8,3,10,23,12,18,9
2 PRINTTAB(9)P(0),,P(1):FORZ=0TO1:J=NOTJ:C=PEEK(49152)-193:C=C*(C>0ANDC<24):S(J)=T(C,J):D(J)=D(J)*(S(J)=0)+S(J)*(S(J)>0):X(J)=X(J)+Q(D(J))):Y(J)=Y(J)+W(D(J)):Z=SCRN(X(J),Y(J))>0:COLOR=C(J)*(D(J)>0):PLOTX(J),Y(J):NEXTZ:B=0:P(J)=P(J)+1:NEXTB